home *** CD-ROM | disk | FTP | other *** search
- object SimpleEditForm: TSimpleEditForm
- Tag = 1000
- Left = 101
- Top = 157
- Width = 554
- Height = 420
- Caption = 'SimpleEdit: Example project for TMagicMacros 2.0'
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Menu = MainMenu1
- PixelsPerInch = 120
- TextHeight = 16
- object Panel1: TPanel
- Tag = 1001
- Left = 0
- Top = 0
- Width = 546
- Height = 41
- Align = alTop
- TabOrder = 0
- OnDblClick = Panel1DblClick
- object btnItalic: TSpeedButton
- Tag = 1002
- Left = 6
- Top = 8
- Width = 28
- Height = 25
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333FF3FFFF3FFF33FF003000030003
- 300077377773777F377703330033370337037FFF77F3377FF77F700007333300
- 0003777777333377777F303003333330370337F77F333337377F303073333333
- 070337F77F333333777F3700733333333003377773333333377F330033333333
- 30033377F3333333377F33073333333333033377333333333373333333333333
- 33333333FF3333333FF3333973333333793333377FF3333377F3333999333339
- 993333377733333777F33339933333339933333773FF333377F3333939733379
- 39333337377FFF77373333333399999333333333337777733333}
- NumGlyphs = 2
- OnClick = btnItalicClick
- end
- object btnBold: TSpeedButton
- Tag = 1003
- Left = 35
- Top = 8
- Width = 28
- Height = 25
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333FF3FFFFFFF3FFFF003000000030
- 0000773777777737777703330030033300037FFF77F77FFF7773700007330000
- 003377777733777777F3303003330030003337F77F3377F77733303073333030
- 033337F77F3337F77F3337007333300003333777733337777333330033333000
- 33333377F3333777F33333073333330033333377333333773333333333333333
- 33333333FF333333FF33333973333337933333377FF333377F33333999333399
- 93333337773333777F333339933333399333333773FF33377F33333939733793
- 93333337377FF773733333333399993333333333337777333333}
- NumGlyphs = 2
- OnClick = btnBoldClick
- end
- object btnFont: TSpeedButton
- Tag = 1004
- Left = 63
- Top = 8
- Width = 28
- Height = 25
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333333FFF33FFFFF33333300033000
- 00333337773377777333333330333300033333337FF33777F333333330733300
- 0333333377FFF777F33333333700000073333333777777773333333333033000
- 3333333337FF777F333333333307300033333333377F777F3333333333703007
- 33333333377F7773333333333330000333333333337777F33333333333300003
- 33333333337777F3333333333337007333333333337777333333333333330033
- 3333333333377333333333333333033333333333333733333333333333333333
- 3333333333333333333333333333333333333333333333333333}
- NumGlyphs = 2
- OnClick = btnFontClick
- end
- end
- object RichEdit1: TRichEdit
- Tag = 1009
- Left = 0
- Top = 41
- Width = 546
- Height = 310
- Align = alClient
- ScrollBars = ssVertical
- TabOrder = 1
- end
- object StatusBar1: TStatusBar
- Left = 0
- Top = 351
- Width = 546
- Height = 19
- Panels = <>
- SimplePanel = True
- end
- object MagicMacros1: TMagicMacros
- Tag = 1010
- VHFilename = 'c:\sources\SimpleEdit.vhf'
- LockCursor = False
- BeforePlay = MagicMacros1BeforePlay
- OnPlayEnded = MagicMacros1PlayEnded
- OnPlayCancelled = MagicMacros1PlayCancelled
- BeforeVisualHelp = MagicMacros1BeforeVisualHelp
- OnVisualHelp = MagicMacros1VisualHelp
- OnVisualHelpEnded = MagicMacros1VisualHelpEnded
- OnVisualHelpCancelled = MagicMacros1VisualHelpCancelled
- OnProgress = MagicMacros1Progress
- Left = 48
- Top = 112
- end
- object FontDialog1: TFontDialog
- Tag = 1011
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MinFontSize = 0
- MaxFontSize = 0
- Left = 160
- Top = 96
- end
- object MainMenu1: TMainMenu
- Tag = 1012
- Left = 248
- Top = 152
- object File1: TMenuItem
- Tag = 1013
- Caption = '&File'
- ShortCut = 0
- object Exit1: TMenuItem
- Tag = 1014
- Caption = 'E&xit'
- ShortCut = 16472
- OnClick = Exit1Click
- end
- end
- object Options1: TMenuItem
- Tag = 1015
- Caption = '&Options'
- ShortCut = 0
- object Italic1: TMenuItem
- Tag = 1016
- Caption = '&Italic'
- ShortCut = 16457
- OnClick = btnItalicClick
- end
- object Bold1: TMenuItem
- Tag = 1017
- Caption = '&Bold'
- ShortCut = 16450
- OnClick = btnBoldClick
- end
- object N1: TMenuItem
- Tag = 1018
- Caption = '-'
- ShortCut = 0
- end
- object Font1: TMenuItem
- Tag = 1019
- Caption = 'Fo&nt'
- ShortCut = 16462
- OnClick = btnFontClick
- end
- end
- object Help1: TMenuItem
- Tag = 1020
- Caption = '&Help'
- ShortCut = 0
- object TMenuItem
- ShortCut = 0
- end
- object Index1: TMenuItem
- Tag = 1021
- Caption = '&Index'
- ShortCut = 112
- OnClick = Index1Click
- end
- object Tourguide1: TMenuItem
- Caption = '&Tourguide'
- ShortCut = 0
- OnClick = Tourguide1Click
- end
- object N2: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object HowcanI1: TMenuItem
- Caption = 'How &can I...'
- ShortCut = 0
- object Maketextbold1: TMenuItem
- Caption = 'Make text &bold'
- ShortCut = 49218
- OnClick = Maketextbold1Click
- end
- object Maketextitalic1: TMenuItem
- Caption = 'Make text &italic'
- ShortCut = 49225
- OnClick = Maketextitalic1Click
- end
- object Changethefont1: TMenuItem
- Caption = 'Change the fo&nt'
- ShortCut = 49230
- OnClick = Changethefont1Click
- end
- end
- end
- end
- end
-